﻿Imports System.ComponentModel 

Public MustInherit Class DbBased

  Private _isnew As Boolean 

  <Browsable(false)> _
  Public Property IsNew As Boolean 
    Get
      Return _isnew 
    End Get
    Set(ByVal value As Boolean)
      _isnew = value 
    End Set
  End Property

  Public Sub new(Optional isnew As Boolean = True)
    _isnew = isnew 
  End Sub
  
End Class
